home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_VB / SHAD20.ZIP;1 / DIALOG.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1994-03-16  |  4.6 KB  |  153 lines
  1. VERSION 2.00
  2. Begin Form Dialog 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Application Dialog"
  5.    ClientHeight    =   4875
  6.    ClientLeft      =   1455
  7.    ClientTop       =   1440
  8.    ClientWidth     =   6270
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   5280
  12.    Left            =   1395
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   325
  17.    ScaleMode       =   3  'Pixel
  18.    ScaleWidth      =   418
  19.    Top             =   1095
  20.    Width           =   6390
  21.    Begin SHADBX ShadBx1 
  22.       Prop16          =   "Click for About Box"
  23.       Left            =   3240
  24.       MaxWidth        =   0
  25.       Top             =   3240
  26.       WindowLeft      =   0
  27.       WindowPosition  =   0   'False
  28.       WindowTop       =   0
  29.    End
  30.    Begin DriveListBox Drive1 
  31.       Height          =   315
  32.       Left            =   3240
  33.       TabIndex        =   11
  34.       Top             =   2400
  35.       Width           =   2775
  36.    End
  37.    Begin DirListBox Dir1 
  38.       Height          =   930
  39.       Left            =   360
  40.       TabIndex        =   10
  41.       Top             =   3600
  42.       Width           =   2295
  43.    End
  44.    Begin CommandButton Btn_Help 
  45.       Caption         =   "Help"
  46.       Height          =   375
  47.       Left            =   4320
  48.       TabIndex        =   9
  49.       Top             =   3600
  50.       Width           =   1575
  51.    End
  52.    Begin FileListBox File1 
  53.       Height          =   1005
  54.       Left            =   360
  55.       TabIndex        =   8
  56.       Top             =   2400
  57.       Width           =   2295
  58.    End
  59.    Begin ComboBox Combo1 
  60.       Height          =   300
  61.       Left            =   3240
  62.       TabIndex        =   7
  63.       Text            =   "Combo1"
  64.       Top             =   1800
  65.       Width           =   2775
  66.    End
  67.    Begin TextBox Text2 
  68.       Height          =   495
  69.       Left            =   3240
  70.       TabIndex        =   6
  71.       Text            =   "Text2"
  72.       Top             =   1080
  73.       Width           =   2775
  74.    End
  75.    Begin TextBox Text1 
  76.       Height          =   495
  77.       Left            =   3240
  78.       TabIndex        =   5
  79.       Text            =   "Text1"
  80.       Top             =   360
  81.       Width           =   2775
  82.    End
  83.    Begin Frame Frame1 
  84.       Caption         =   "Frame1"
  85.       Height          =   1935
  86.       Left            =   360
  87.       TabIndex        =   1
  88.       Top             =   240
  89.       Width           =   2295
  90.       Begin OptionButton Option3 
  91.          Caption         =   "Option3"
  92.          Height          =   255
  93.          Left            =   360
  94.          TabIndex        =   4
  95.          Top             =   1440
  96.          Width           =   1455
  97.       End
  98.       Begin OptionButton Option2 
  99.          Caption         =   "Option2"
  100.          Height          =   255
  101.          Left            =   360
  102.          TabIndex        =   3
  103.          Top             =   960
  104.          Width           =   1455
  105.       End
  106.       Begin OptionButton Option1 
  107.          Caption         =   "Option1"
  108.          Height          =   255
  109.          Left            =   360
  110.          TabIndex        =   2
  111.          Top             =   480
  112.          Width           =   1455
  113.       End
  114.    End
  115.    Begin CommandButton BTN_Close 
  116.       Caption         =   "Close"
  117.       Height          =   375
  118.       Left            =   4320
  119.       TabIndex        =   0
  120.       Top             =   4200
  121.       Width           =   1575
  122.    End
  123.    Begin Label Label1 
  124.       Caption         =   "Click help button for popup window"
  125.       Height          =   495
  126.       Left            =   4320
  127.       TabIndex        =   12
  128.       Top             =   3000
  129.       Width           =   1575
  130.    End
  131. Sub BTN_Close_Click ()
  132.     Hide
  133. End Sub
  134. Sub Btn_Help_Click ()
  135. Dim Msg As String
  136. Dim CRLF As String
  137.     CRLF = Chr$(13) + Chr$(10)
  138.     Msg = "You have just clicked on the Help Button." + CRLF + CRLF
  139.     Msg = Msg + "Fill the popup window with the help text desired." + CRLF + CRLF
  140.     Msg = Msg + "The message could contain information about how to use this dialog form." + CRLF + CRLF
  141.     Msg = Msg + "The WindowPosition property of this form's SHADBX.VBX control is set TRUE." + CRLF + CRLF
  142.     Msg = Msg + "The coordinates of this popup window are set to (50,50)."
  143.     Shadbx1.MessageText = Msg
  144. End Sub
  145. Sub Form_Load ()
  146.     If Me.WindowState = 0 Then
  147.         Me.Top = 0 'Shadbx_Form.Top
  148.         Me.Left = 0 'Shadbx_Form.Left
  149.         Me.Width = 6345
  150.         Me.Height = 5280
  151.     End If
  152. End Sub
  153.